home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Games / Strategy / Puzzle / GameMaster / GM Dev Kit / Pascal Units / Debugs.unit next >
Encoding:
Text File  |  1991-09-11  |  650 b   |  30 lines  |  [TEXT/PJMM]
  1. unit Debugs;
  2.  
  3. interface
  4.  
  5.     procedure DebugRect (s: str255; r: rect);
  6.     procedure DebugNum (s: str255; l: longint);
  7.  
  8. implementation
  9.  
  10.     procedure DebugRect (s: str255; r: rect);
  11.         var
  12.             topstr, leftstr, rightstr, bottomstr: str255;
  13.     begin
  14.         NumToString(r.top, topstr);
  15.         NumToString(r.left, leftstr);
  16.         NumToString(r.bottom, bottomstr);
  17.         NumToString(r.right, rightstr);
  18.         DebugStr(s);
  19.         DebugStr(concat('top : ', topstr, ', left : ', leftstr, ', bottom : ', bottomstr, ', right : ', rightstr, ' .'));
  20.     end;
  21.  
  22.     procedure DebugNum (s: str255; l: longint);
  23.         var
  24.             numstr: str255;
  25.     begin
  26.         NumToString(l, numstr);
  27.         DebugStr(concat(s, numstr));
  28.     end;
  29.  
  30. end.